home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aah.d64 / paul's escape (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  9KB  |  258 lines

  1. 1 REM(null)(null)
  2. 2 REM(null)(null)
  3. 3 POKE775,191:REM
  4. 4 REM(null)(null)
  5. 5 POKE775,191:REM
  6. 7 REM(null)(null)
  7. 8 PRINTCHR$(8):PRINTCHR$(14):NU=0:PO=80
  8. 9 DIMST$(36):DIMQU$(20):DIMAN$(20):DIMAO$(20):DIMAP$(20):DIMIN$(8):DIMQW$(20)
  9. 10 POKE53265,PEEK(53265)AND239:GOSUB800:GOSUB300:GOSUB1300:GOSUB1400:GOSUB1500
  10. 11 PRINT"[155]      [211][193][213][204]'[211][160][197][211][195][193][208][197][160][198][210][207][205][160][196][193][205][193][211][195][213][211]       ":REM(null)(null)
  11. 12 PRINTSPC(11)"BY [211]TEVE [215]ILLIAMS":PRINT"":FORX=1TO8:PRINT"[149]"IN$(X):NEXTX
  12. 13 PRINT"[196]O YOU WANT TO REVIEW THE [194]IBLE STORY?"
  13. 14 PRINT"[217]ES OR [206]O?  (Y/N)"
  14. 15 POKE53265,PEEK(53265)OR16:POKE198,0
  15. 16 GETA$:IFA$=""THEN16
  16. 17 IFA$="[217]"ORA$="Y"THEN20:REM(null)(null)
  17. 18 IFA$="N"ORA$="[206]"THEN30
  18. 19 GOTO16
  19. 20 FL=1:POKE53265,PEEK(53265)AND239:GOSUB300:POKE53265,PEEK(53265)OR16
  20. 21 TM=1:GOTO23
  21. 22 TM=TM+6:IFTM=>37THEN30:REM(null)(null)
  22. 23 PRINT"[159]":FORX=TMTO(TM+5):PRINTST$(X):PRINT:NEXTX:GOSUB250:POKE53280,CO
  23. 24 PRINT"*** [208]RESS SPACE BAR TO CONTINUE ***"
  24. 25 LD=LD+1:PRINT""SPC(16)"[208]AGE "LD:POKE198,0
  25. 26 GETA$:IFA$=""THEN26
  26. 27 IFA$=CHR$(32)THEN22
  27. 28 GOTO25
  28. 30 POKE53280,0:FL=0:POKE53265,PEEK(53265)AND239:GOSUB300:GOSUB100:GOSUB95
  29. 31 GOSUB480:POKE53265,PEEK(53265)OR16
  30. 32 GOSUB600:GOSUB500:NT=NT+1:POKE198,0
  31. 34 GETJ$:IFJ$=""THEN34
  32. 35 IFJ$=""ORJ$="[145]"ORJ$=""ORJ$="[157]"ORJ$=CHR$(20)THENPOKE198,0:GOTO34
  33. 36 IFJ$="A"ORJ$="[193]"ORJ$="B"ORJ$="[194]"THEN38
  34. 37 POKE198,0:GOTO34
  35. 38 IFJ$=AP$(NU)THENCA=CA+1:GOSUB480:GOSUB88:IFCA=>14THENGOSUB1100:GOSUB600:GOTO2000
  36. 39 IFJ$<>AP$(NU)THENPRINT"[155][211]ORRY. [212]HAT IS WRONG.":GOSUB89
  37. 41 IFNT=>17THEN60
  38. 43 GOTO32
  39. 60 PRINT"[211]ORRY. [212]IME IS UP.":GOSUB89:GOTO3000
  40. 80 GOTO3000
  41. 88 FORT=1TO200:NEXTT:RETURN
  42. 89 FORT=1TO800:NEXTT:RETURN
  43. 90 FORX=1TO20:PRINT"":NEXTX
  44. 95 PRINT"";:PRINT"":FORY=1TO5:PRINT"";:NEXTY
  45. 96 FORZ=1TODW:PRINT"";:NEXTZ:PRINT"[149][221]":DW=DW+1:RETURN
  46. 97 PRINT"";:FORX=1TO3:PRINT"":NEXTX:FORX=1TO8:PRINT"";:NEXTX
  47. 100 V=53248:POKE2040,13:FORX=0TO62:READJ:POKE832+X,J:NEXTX:REM(null)(null)
  48. 101 POKEV+39,9:POKEV+37,1:POKEV+38,6
  49. 102 POKEV+28,29:POKEV+0,57:POKEV+1,PO
  50. 105 POKE2041,14:FORX=0TO23:POKE896+X,0:NEXTX:REM(null)(null)
  51. 106 X=0:FORY=0TO12:X=X+1:POKE920+X,0:X=X+1:POKE920+X,48:X=X+1:POKE920+X,0:NEXTY
  52. 107 POKEV+40,9:POKEV+2,49:POKEV+3,(PO-20)
  53. 108 POKEV+21,3
  54. 110 DATA 0,32,0,0,136,0
  55. 120 DATA 0,136,0,2,2
  56. 130 DATA 0,2,2,0,8
  57. 140 DATA 0,128,8,32,128
  58. 150 DATA 32,152,32,32,152
  59. 160 DATA 32,128,16,8,128
  60. 170 DATA 48,8,128,252,8
  61. 180 DATA 163,255,40,170,170
  62. 190 DATA 168,170,170,168,42
  63. 200 DATA 170,160,42,170,160
  64. 210 DATA 10,170,128,2,170
  65. 220 DATA 0,2,170,0,0,168,0
  66. 224 RETURN
  67. 250 CB=CB+1:REM(null)(null)
  68. 251 IFCB=1THENCO=0
  69. 252 IFCB=2THENCO=5
  70. 253 IFCB=3THENCO=6
  71. 254 IFCB=4THENCO=0
  72. 255 IFCB=5THENCO=5
  73. 256 IFCB=6THENCO=6
  74. 260 RETURN:REM(null)(null)
  75. 300 PRINT"[147]":POKE53280,0:POKE53281,0
  76. 302 PRINT"";:FORX=1TO80:PRINT" ";:NEXTX
  77. 304 FORX=1TO39:PRINT"[182]";:NEXTX:PRINT" ";
  78. 305 IFFL=1THENFORX=1TO17:PRINT:NEXTX:GOTO314
  79. 306 PRINT"";:FORX=1TO17:PRINT"[146][165][157]";:NEXTX
  80. 308 PRINT"[157]";:FORX=1TO17:PRINT"[146][167][157]";:NEXTX:PRINT"[145]"
  81. 314 FORX=1TO199:PRINT" ";:NEXTX:PRINT""
  82. 315 POKE2023,224:POKE56295,5:RETURN
  83. 480 FORX=1TO8:POKEV+1,(PO+X):POKEV+3,(PO+X-20):FORT=1TO50:NEXTT:IFX=6THENGOSUB95
  84. 481 NEXTX:PO=PO+8:RETURN
  85. 500 NU=NU+1:NW=NW+1:IFNU=>18THENNU=1
  86. 501 PRINT""SPC(15)"[159][209]UESTION #"NW
  87. 502 PRINT"[149]"QU$(NU)
  88. 503 PRINT""QW$(NU)
  89. 504 PRINT"";:PRINT"[159][193][146] "AN$(NU):PRINT"[159][194][146] "AO$(NU)"[149]"
  90. 506 RETURN
  91. 600 PRINT"                               ":REM(null)(null)
  92. 602 FORX=1TO4:GOSUB604:NEXTX:GOTO606
  93. 604 PRINT"                               ":RETURN
  94. 606 IFCA=>14THENPRINT"                              "
  95. 607 RETURN
  96. 620 RETURN
  97. 800 ST$(1)="[211]AUL, LATER KNOWN AS [208]AUL, WAS NOT A   "
  98. 801 ST$(2)="FRIEND OF THE CHURCH AT FIRST. [201]N FACT "
  99. 802 ST$(3)="HE PERSECUTED THE CHURCH.              "
  100. 803 ST$(4)="[200]E TRAVELED TO [196]AMASCUS IN ORDER TO    "
  101. 804 ST$(5)="ARREST [195]HRISTIANS. [193]S HE WAS TRAVELING ":REM(null)(null)
  102. 807 ST$(6)="A BRIGHT LIGHT FLASHED ABOUT HIM.      "
  103. 808 ST$(7)="[202]ESUS SPOKE TO HIM AND ASKED WHY HE WAS"
  104. 809 ST$(8)="PERSECUTING HIM. [194]Y PERSECUTING THE    "
  105. 810 ST$(9)="CHURCH [211]AUL WAS PERSECUTING [202]ESUS.     "
  106. 811 ST$(10)="[211]AUL WAS TOLD TO GO INTO [196]AMASCUS AND  "
  107. 812 ST$(11)="HE WOULD BE TOLD WHAT HE MUST DO TO BE "
  108. 813 ST$(12)="SAVED AND MAKE THINGS RIGHT WITH [199]OD.  "
  109. 814 ST$(13)="[193]NANIAS, A [195]HRISTIAN IN [196]AMASCUS, WAS  "
  110. 815 ST$(14)="TOLD BY [199]OD TO GO VISIT [211]AUL. [200]E WAS   "
  111. 816 ST$(15)="AFRAID BUT HE OBEYED [199]OD AND WENT.     "
  112. 817 ST$(16)="[200]E PREACHED TO [211]AUL AND TOLD HIM THE   "
  113. 818 ST$(17)="TRUTH ABOUT [202]ESUS. [211]AUL BELIEVED AND   "
  114. 819 ST$(18)="WAS BAPTIZED ([193]CTS 9:18).              "
  115. 822 ST$(19)="[211]AUL ([208]AUL) SURPRISED EVERYONE IN THE  "
  116. 823 ST$(20)="TOWN OF [196]AMASCUS BY PREACHING IN THE   "
  117. 824 ST$(21)="SYNAGOGUES THAT [202]ESUS IS [199]OD'S SON!    "
  118. 826 ST$(22)="[212]HIS COMPLETE CHANGE OF DIRECTION IN   "
  119. 827 ST$(23)="[211]AUL'S LIFE AMAZED EVERYONE, BUT SOME  "
  120. 828 ST$(24)="WERE ANGRY AT [211]AUL FOR THIS.           "
  121. 830 ST$(25)="[194]ECAUSE [208]AUL WAS SO POWERFUL IN HIS    "
  122. 831 ST$(26)="ABILITY TO PROVE THAT [202]ESUS WAS THE    "
  123. 832 ST$(27)="[195]HRIST, SOME [202]EWS WANTED TO KILL [211]AUL. "
  124. 834 ST$(28)="[212]HEY PLOTTED [211]AUL'S MURDER, BUT THE    "
  125. 835 ST$(29)="PLOT WAS UNCOVERED AND [211]AUL WAS WARNED "
  126. 836 ST$(30)="OF THEIR EVIL INTENTIONS ([193]CTS 9:24).  "
  127. 838 ST$(31)="[212]HE [202]EWS WERE WATCHING THE GATES OF THE"
  128. 839 ST$(32)="CITY IN ORDER TO CATCH AND KILL [211]AUL.  "
  129. 840 ST$(33)="[211]AUL HAD ANOTHER WAY OF ESCAPE THOUGH. "
  130. 842 ST$(34)="[200]IS DISCIPLES LET HIM DOWN OVER THE    "
  131. 843 ST$(35)="CITY WALL IN A BASKET. [200]E ESCAPED AND  "
  132. 844 ST$(36)="PREACHED [202]ESUS FOR A LONG TIME.        "
  133. 848 IN$(1)="[201]N THIS GAME YOU MUST HELP [208]AUL ([211]AUL)"
  134. 849 IN$(2)="ESCAPE [196]AMASCUS BY LETTING HIM OVER"
  135. 850 IN$(3)="THE WALL IN A BASKET."
  136. 852 IN$(4)="[215]HEN YOU ANSWER A QUESTION CORRECTLY,"
  137. 853 IN$(5)="[208]AUL IS LOWERED A FEW FEET. [201]F YOU ARE"
  138. 854 IN$(6)="WRONG, [208]AUL CANNOT MOVE! [217]OU MUST GET"
  139. 855 IN$(7)="14 ANSWERS CORRECT OUT OF 17 QUESTIONS"
  140. 856 IN$(8)="TO SAVE [211]AUL AND SEE HIM RUN AWAY."
  141. 1000 RETURN
  142. 1100 POKE2042,15:FORX=0TO62:READJ:POKE960+X,J:NEXTX
  143. 1101 POKEV+41,9:REM(null)(null)
  144. 1102 POKEV+4,57:POKEV+5,PO
  145. 1110 DATA 0,32,0,0,136,0
  146. 1120 DATA 0,136,0,2,2
  147. 1130 DATA 0,2,2,0,8:REM(null)(null)
  148. 1140 DATA 0,128,8,0,128
  149. 1150 DATA 32,0,32,32,0
  150. 1160 DATA 32,128,0,8,128
  151. 1170 DATA 0,8,128,0,8
  152. 1180 DATA 128,0,40,170,170
  153. 1190 DATA 168,170,170,168,42
  154. 1200 DATA 170,160,42,170,160
  155. 1210 DATA 10,170,128,2,170
  156. 1220 DATA 0,2,170,0,0,168,0
  157. 1224 RETURN
  158. 1300 QU$(1)="[212]O WHAT WAS [211]AUL'S NAME LATER":QW$(1)="CHANGED?"
  159. 1302 QU$(2)="[215]HY WAS [211]AUL NOT CONSIDERED A":QW$(2)="FRIEND OF THE CHURCH?"
  160. 1304 QU$(3)="[212]O WHAT TOWN WAS [211]AUL TRAVELING"
  161. 1305 QW$(3)="IN ORDER TO ARREST [195]HRISTIANS?"
  162. 1306 QU$(4)="[215]HAT HAPPENED TO [211]AUL ON THE":QW$(4)="ROAD NEAR  TO [196]AMASCUS?"
  163. 1308 QU$(5)="[215]HO SPOKE TO [211]AUL AS THE BRIGHT":QW$(5)="LIGHT WAS SHINING ON HIM?"
  164. 1310 QU$(6)="[194]Y PERSECUTING THE CHURCH [211]AUL":QW$(6)="WAS PERSECUTING WHOM?"
  165. 1312 QU$(7)="[215]HO CAME TO VISIT [211]AUL TO TEACH":QW$(7)="HIM THE GOSPEL?"
  166. 1314 QU$(8)="[211]AUL BELIEVED THE GOSPEL ABOUT":QW$(8)="[202]ESUS AND THEN DID WHAT?"
  167. 1316 QU$(9)="[211]AUL THEN WENT WHERE TO PREACH":QW$(9)="THAT [202]ESUS WAS [199]OD'S [211]ON?"
  168. 1318 QU$(10)="[215]HAT WAS THE REACTION OF MOST"
  169. 1319 QW$(10)="PEOPLE TO THIS CHANGE IN [211]AUL?"
  170. 1320 QU$(11)="[211]OME PEOPLE WERE VERY ANGRY AT":QW$(11)="[211]AUL FOR PREACHING [202]ESUS."
  171. 1322 QU$(12)="[215]HAT DID SOME OF THE [202]EWS PLAN":QW$(12)="CONCERNING [208]AUL?"
  172. 1324 QU$(13)="[208]AUL NEVER FOUND OUT ABOUT THIS":QW$(13)="PLOT AGAINST HIS LIFE."
  173. 1326 QU$(14)="[215]HERE DID THE [202]EWS WAIT TO TRY":QW$(14)="TO CATCH [211]AUL?"
  174. 1327 QU$(15)="[200]OW DID [208]AUL ESCAPE FROM THE":QW$(15)="CITY OF [196]AMASCUS?"
  175. 1328 QU$(16)="[193]FTER ESCAPING [208]AUL PREACHED":QW$(16)="[202]ESUS FOR A LONG TIME."
  176. 1330 QU$(17)="[198]ROM WHAT CHAPTER WAS OUR":QW$(17)="LESSON TAKEN?"
  177. 1390 RETURN
  178. 1400 AN$(1)="[208]AUL":AO$(1)="[202]OHN":AN$(2)="[200]E BURNED [194]IBLES."
  179. 1402 AO$(2)="[200]E PERSECUTED THE CHURCH.":AN$(3)="[202]ERICHO":AO$(3)="[196]AMASCUS"
  180. 1404 AN$(4)="[193] BRIGHT LIGHT BLINDED HIM.":AO$(4)="[200]E FELL AND BROKE HIS LEG."
  181. 1406 AN$(5)="[202]ESUS":AO$(5)="[199]ABRIEL, THE ANGEL."
  182. 1408 AN$(6)="[212]HE [199]ENTILES.":AO$(6)="[202]ESUS HIMSELF."
  183. 1410 AN$(7)="[193]NANIAS.":AO$(7)="[194]ARNABAS."
  184. 1412 AN$(8)="[212]OOK THE [204]ORD'S [211]UPPER.":AO$(8)="[215]AS BAPTIZED."
  185. 1414 AN$(9)="[212]HE MARKET PLACE.":AO$(9)="[212]HE SYNAGOGUES."
  186. 1416 AN$(10)="[201]T MADE THEM SAD.":AO$(10)="[212]HEY WERE SURPRISED."
  187. 1418 AN$(11)="[212]RUE.":AO$(11)="[198]ALSE."
  188. 1420 AN$(12)="[200]IS DEATH.":AO$(12)="[193] BIRTHDAY PARTY."
  189. 1422 AN$(13)="[212]RUE.":AO$(13)="[198]ALSE."
  190. 1424 AN$(14)="[193]T HIS DOORSTEP.":AO$(14)="[193]T THE CITY GATES."
  191. 1426 AN$(15)="[212]HROUGH A SECRET TUNNEL.":AO$(15)="[201]N A BASKET OVER THE WALL."
  192. 1428 AN$(16)="[212]RUE.":AO$(16)="[198]ALSE."
  193. 1430 AN$(17)="[193]CTS 9":AO$(17)="[193]CTS 19"
  194. 1490 RETURN
  195. 1500 AP$(1)="A"
  196. 1502 AP$(2)="B"
  197. 1503 AP$(3)="B"
  198. 1504 AP$(4)="A"
  199. 1505 AP$(5)="A"
  200. 1506 AP$(6)="B"
  201. 1507 AP$(7)="A"
  202. 1508 AP$(8)="B"
  203. 1509 AP$(9)="B"
  204. 1510 AP$(10)="B"
  205. 1511 AP$(11)="A"
  206. 1512 AP$(12)="A"
  207. 1513 AP$(13)="B"
  208. 1514 AP$(14)="B"
  209. 1515 AP$(15)="B"
  210. 1516 AP$(16)="A"
  211. 1517 AP$(17)="A"
  212. 1590 RETURN
  213. 2000 POKE2043,195:FORX=0TO62:READA:POKE12480+X,A:NEXTX:POKEV+42,9:POKEV+43,9
  214. 2001 POKE2044,196:FORX=0TO62:READA:POKE12544+X,A:NEXTX
  215. 2002 POKEV+7,PO:POKEV+9,PO:PP=59:UI=4
  216. 2004 FORTG=1TO24:GOSUB2009:GOSUB2008:NEXTTG
  217. 2005 GOSUB2009:POKEV+16,24:POKEV+8,0:GOTO2100
  218. 2006 POKEV+6,(PP+UI):PP=PP+UI:FORT=1TO25:NEXT:RETURN
  219. 2007 POKEV+8,(PP+UI):PP=PP+UI:FORT=1TO25:NEXT:RETURN
  220. 2008 GOSUB2006:POKEV+21,14:RETURN
  221. 2009 GOSUB2007:POKEV+21,22:RETURN
  222. 2010 DATA 0,40,0,0,36,0
  223. 2011 DATA 0,36,0,0,16
  224. 2012 DATA 0,0,48,0,0
  225. 2013 DATA 241,0,0,212,0
  226. 2015 DATA 1,240,0,4,240
  227. 2018 DATA 0,0,240,0,0
  228. 2021 DATA 240,0,0,160,0
  229. 2024 DATA 0,160,0,0,160
  230. 2027 DATA 0,2,160,0,10
  231. 2030 DATA 32,0,8,32,0
  232. 2033 DATA 0,32,0,0,32
  233. 2036 DATA 0,0,0,0,0,0,0
  234. 2039 DATA 0,40,0,0,36,0,0,36
  235. 2042 DATA 0,0,16,0,0
  236. 2045 DATA 48,0,0,240,0
  237. 2048 DATA 0,112,0,0,116
  238. 2051 DATA 0,0,112,0,0
  239. 2054 DATA 84,0,0,240,0
  240. 2057 DATA 0,160,0,0,160
  241. 2060 DATA 0,0,160,0,0
  242. 2063 DATA 136,0,0,136,0
  243. 2066 DATA 0,136,0,0,136
  244. 2069 DATA 0,0,136,0,0
  245. 2072 DATA 0,0,0,0,0
  246. 2100 UI=4:PP=0:FORTG=1TO12:GOSUB2008:GOSUB2009:NEXTTG
  247. 3000 PRINT"[147]":POKEV+21,0:PRINT"[215]ANT TO PLAY AGAIN? (Y/N)":POKE198,0
  248. 3001 PRINT" OR RETURN TO BIBLE GAMES MAIN MENU (M)"
  249. 3002 GETA$:IFA$=""THEN3002
  250. 3003 IFA$="N"ORA$="[206]"THENEND
  251. 3004 IFA$="Y"ORA$="[217]"THEN3005
  252. 3005 IFA$="M"ORA$="[205]"THEN4000
  253. 3006 GOTO3002
  254. 3009 RESTORE
  255. 3010 GOTO10
  256. 4000 POKE198,4:PRINT"[147]LOAD"CHR$(34)"BIBLE MENU"CHR$(34)",8";
  257. 4002 POKE631,13:POKE632,82:POKE633,117:POKE634,13:END
  258.